home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / b.iprg demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  108 lines
  1. 5 poke56,56:clr:dv=peek(186):ifdv<8thendb=8
  2. 10 sys57812"iprg demo font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  3. 20 sys57812"iprg2 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 50 poke53280,12:poke53281,0:poke53272,31
  5. 100 mt=49152:box=mt+24:at=mt+36:ce=mt+39:br=mt+48:ss=mt+27:sr=mt+30:item=mt+3
  6. 110 desc=mt+6:menu=mt+21
  7. 200 sysbox,0,39,0,24,160,12
  8. 210 sysbox,0,39,0,0,160,7
  9. 220 sysbox,0,39,22,22,160,7
  10. 230 sysat,1,0,"[158] [198][158]ile   [197][158]dit   [207][158]ptions  [212][158]ools
  11. 240 [158]ce,22,"^ for menus or (NULL) to exit
  12. 250 print"":sysss,208
  13. 300 syssr,208:sysbr,"^qfeot"
  14. 310 onpeek(820)gosub1000,40000,1000,2000,3000,4000:goto300
  15. 999 stop
  16. 1000 syssr,208:sysdesc,1,"[195]reate [193] [206]ew [196]ocument
  17. 1010 [158]desc,2,"(NULL)pen an valxisting str$ocument
  18. 1020 sysdesc,3,"[211]ave [213]nder [195]urrent file [206]ame
  19. 1030 [158]desc,4,"(NULL)ave (NULL)ith str$ifferent ascilename
  20. 1040 sysdesc,5,"[205]ake [194]ackup [215]ith [196]ifferent [206]ame
  21. 1050 [158]desc,6,"valxamine ascile (NULL)ithout (NULL)oading
  22. 1060 sysdesc,7,"[211]earch [198]or [198]ile [207]n [200]ard [196]rive
  23. 1070 [158]desc,8,"chr$o (NULL)o peekatn(NULL)right$lenclose(NULL)r (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  24. 1080 sysbox,0,39,0,0,32,11+128
  25. 1090 sysbox,2,6,0,0,32,1+128
  26. 1100 sysbox,1,15,1,10,32,11+128
  27. 1110 sysbox,2,16,1,9,160,15
  28. 1120 sysat,3,1,"[155][206]ew       [[206]]
  29. 1130 [158]at,3,2,"(NULL)pen      [(NULL)]
  30. 1140 sysat,3,3,"[211]ave      [[211]]
  31. 1150 [158]at,3,4,"(NULL)ave atns   [atn]
  32. 1160 sysat,3,5,"[211]ave [195]opy [[195]]
  33. 1170 [158]at,3,6,"valxamine   [val]
  34. 1180 sysat,3,7,"[198]ind [201]t   [[198]]
  35. 1190 [158]at,3,8,"(NULL)uit      [(NULL)]
  36. 1195 sysat,3,9,"<<[192][205]enus[192]>>
  37. 1200 [158]menu,1,2,16,8,15,7,"nosacefqcmd"
  38. 1202 [139][194](820)[178]8[167]40000
  39. 1220 [139][194](820)[179]9[167]5000
  40. 1230 [145][194](820)[171]8[137]2000,4000
  41. 2000 [158]sr,208:[158]desc,1,"(NULL)elect atn (NULL)ange (NULL)f (NULL)ecords
  42. 2010 sysdesc,2,"[211]elect [193]ll [210]ecords
  43. 2020 [158]desc,3,"(NULL)tash right$n lenlipboard ascile
  44. 2030 sysdesc,4,"[196]elete [193]nd [211]tash [201]n [195]lipboard [198]ile
  45. 2040 [158]desc,5,"right$nsert lenlipboard right$nto str$ocument
  46. 2050 sysdesc,6,"[201]nsert [198]ile [193]t [212]his [208]oint
  47. 2060 [158]desc,7,"valrase (NULL)elected ascor chr$ood
  48. 2070 sysdesc,8,"[199]o [212]o [194][193][211][201][195][160][207]r [204][207][193][196][211][212][193][210]
  49. 2080 [158]box,0,39,0,0,32,11[170]128
  50. 2090 [158]box,9,12,0,0,32,1[170]128
  51. 2100 [158]box,8,25,1,9,32,11[170]128
  52. 2110 [158]box,9,26,1,8,160,15
  53. 2120 [158]at,10,1,"list(NULL)elect       [(NULL)]
  54. 2130 sysat,10,2,"[211]elect [193]ll   [[193]]
  55. 2140 [158]at,10,3,"lenopy         [len]
  56. 2150 sysat,10,4,"[195]ut          [[216]]
  57. 2160 [158]at,10,5,"(NULL)aste        [(NULL)]
  58. 2170 sysat,10,6,"[208]aste file   [[198]]
  59. 2180 [158]at,10,7,"valrase      [str$val(NULL)]
  60. 2195 sysat,10,8,"<<[192][205]enus[192]>>
  61. 2200 [158]menu,1,9,26,7,15,7,"sacxvf"[170][199](20)[170]"cmd"
  62. 2220 [139][194](820)[179]8[167]5000
  63. 2230 [145][194](820)[171]7[137]3000,1000
  64. 3000 [158]sr,208:[158]desc,1,"lenhange peekackground/(NULL)enu lenolors
  65. 3010 sysdesc,2,"[211]elect [196]evice/[196]river/[214]erbosity
  66. 3020 [158]desc,3,"(NULL)se (NULL)val(NULL)/str$atnlenlen for peekigger asciles"
  67. 3030 [158]desc,4,"(NULL)et lenlipboard (NULL)ocation/(NULL)imits
  68. 3080 sysbox,0,39,0,0,32,11+128
  69. 3090 sysbox,16,22,0,0,32,1+128
  70. 3100 sysbox,15,32,1,6,32,11+128
  71. 3110 sysbox,16,33,1,5,160,15
  72. 3120 sysat,17,1,"[155][195]olor [211]etup  [[195]]
  73. 3130 [158]at,17,2,"(NULL)rinter (NULL)etup[(NULL)]
  74. 3140 sysat,17,3,"[210][197][213] [207]ptions  [[210]]
  75. 3150 [158]at,17,4,"lenlipboard    [(NULL)]
  76. 3195 sysat,17,5,"<<[192][205]enus[192]>>
  77. 3200 [158]menu,1,16,33,4,15,7,"cprxcmd"
  78. 3220 [139][194](820)[179]5[167]5000
  79. 3230 [145][194](820)[171]4[137]4000,2000
  80. 4000 [158]sr,208:[158]desc,1,"lenalculator (NULL)ool
  81. 4010 sysdesc,2,"[212]ally [193] [204]ist [207]f [201]tems
  82. 4020 [158]desc,3,"valxport (NULL)ecords atns (NULL)ext"
  83. 4030 [158]desc,4,"(NULL)et lenlipboard (NULL)ocation/(NULL)imits
  84. 4080 sysbox,0,39,0,0,32,11+128
  85. 4090 sysbox,24,29,0,0,32,1+128
  86. 4100 sysbox,23,38,1,5,32,11+128
  87. 4110 sysbox,24,39,1,4,160,15
  88. 4120 sysat,25,1,"[155][195]alculator [[195]]
  89. 4130 [158]at,25,2,"(NULL)ini (NULL)heet [(NULL)]
  90. 4140 sysat,25,3,"[197]xport     [[197]]
  91. 4195 [158]at,25,4,"<<tan(NULL)enustan>>
  92. 4200 sysmenu,1,24,38,3,15,7,"cse[157]"
  93. 4220 ifpeek(820)<4then5000
  94. 4230 onpeek(820)-3goto1000,3000
  95. 5000 return
  96. 9999 stop
  97. 10000 d=peek(186):n$="b.iprg demo":open15,d,15,"s0:"+n$:close15:saven$,d:end
  98. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  99. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  100. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  101. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  102. 40040 close2:open2,i,2:close2:ifstthen40060
  103. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  104. 40060 next:return
  105. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  106. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  107. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  108.